home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs07.d81 / pslab.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  4KB  |  109 lines
  1. 10 REM  PRINT SHOP LABEL MAKER V2.0
  2. 20 REM  BY BRIAN HEYBOER  7/5/86
  3. 30 REM  THIS PROGRAM IS PUBLIC DOMAIN.
  4. 40 IFLC THEN SYS 828:GOTO640
  5. 50 POKE55,0:POKE56,156:CLR
  6. 60 POKE53280,1:POKE53281,1
  7. 70 FOR I=828TO957:READ A:POKE I,A:NEXT
  8. 80 PRINT"[149][147]  [208]RINT [211]HOP [199]RAPHICS [204]ABEL [205]AKER [214]2.0
  9. 90 [153]"  PEEKY PEEKRIAN LEFT$EYBOER - (null)-(null)INK RIGHT$STR$: (null)(null)(null)ASCVAL(null)
  10. 100 PRINT"[144][212]HIS PROGRAM PRINTS STANDARD ONE INCH"
  11. 110 PRINT"MAILING LABELS USING [208]RINT [211]HOP [199]RAPHICS
  12. 120 [153]"ONAND TEXT OF YOUR CHOICE ON AN VALPSON OR
  13. 130 PRINT"COMPATABLE PRINTER.
  14. 140 [153]"(null)OW COMPATABLE WITH (null)RINT (null)HOP LENOMPANION
  15. 150 PRINT"[212]HIS PROGRAM IS PUBLIC DOMAIN.
  16. 160 [153]"(null)RINT (null)HOP IS A TRADEMARK OF PEEKRODERBUND.
  17. 170 PRINT"[197]PSON IS A TRADEMARK OF [197]PSON [193]MERICA.
  18. 180 [153]"CLR      (null)RESS ANY KEY WHEN READY.
  19. 190 GETX$:IFX$=""THEN190
  20. 200 DIM L$(6),F(6),FS$(9)
  21. 210 E$=CHR$(27)
  22. 220 FS$(0)=E$+CHR$(69)
  23. 230 FS$(1)=FS$(0)+CHR$(14)
  24. 240 FS$(2)=CHR$(15)
  25. 250 FS$(3)=FS$(0)+E$+CHR$(83)+CHR$(0)
  26. 260 FS$(4)=FS$(0)+E$+CHR$(83)+CHR$(1)
  27. 270 FS$(5)=FS$(0)+E$+CHR$(52)
  28. 280 FS$(6)=FS$(1)+FS$(5)
  29. 290 FS$(7)=FS$(2)+E$+CHR$(52)
  30. 300 FS$(8)=FS$(3)+FS$(5)
  31. 310 FS$(9)=FS$(4)+FS$(5)
  32. 320 EL$=E$+CHR$(84)+E$+CHR$(53)+CHR$(18)+E$+CHR$(70)+CHR$(10)+CHR$(13)
  33. 330 PRINT"[149][147]    [208]RINT [211]HOP [199]RAPHICS [204]ABEL [205]AKER":PRINT
  34. 340 PRINT"[199]RAPHIC [198]ILE [206]AME ($ FOR [196]IRECTORY)
  35. 350 LC[178]0:[133] "  $CMDCMDCMD";G$:[139] G$[178]"$"[167][141]730
  36. 360 [153]"STOPRIGHT$NPUT (null)ABEL (null)EXT.  ASCOR BEST RESULTS,"
  37. 370 [153]"SKIP ALTERNATE LINES. ((null)SE 1,3,5,7 FOR
  38. 380 PRINT"FOUR LINE LABELS AND 2,4,6 FOR THREE
  39. 390 [153]"LINES.  (null)INES WITH COMMAS OR COLONS MUST
  40. 400 PRINT"[145]BE IN QUOTES.
  41. 410 [153]"ATNVAILABLE ASCONTS:
  42. 420 PRINT"   0 = [206]ORMAL
  43. 430 [153]"   1 = VALXPANDED
  44. 440 PRINT"   2 = [195]ONDENSED
  45. 450 [153]"   3 = (null)UPERSCRIPT
  46. 460 PRINT"   4 = [211]UBSCRIPT
  47. 470 [153]"   5 = RIGHT$TALIC
  48. 480 PRINT"   6 = [197]XPANDED [201]TALIC
  49. 490 [153]"   7 = LENONDENSED RIGHT$TALIC
  50. 500 PRINT"   8 = [211]UPERSCRIPT [201]TALIC
  51. 510 [153]"   9 = (null)UBSCRIPT RIGHT$TALIC
  52. 520 F$="0":FOR A=0TO6:L$(A)=" ":PRINT"[212]EXT FOR LINE "A+1;:INPUT"";L$(A)
  53. 530 PRINT"[198]ONT FOR LINE "A+1"  "F$"[157][157]";:INPUT"[157]";F$:F(A)=VAL(F$)
  54. 540 IFF(A)>9THEN530
  55. 550 NEXT
  56. 560 NL$=" ":INPUT"[206]UMBER OF LABELS   1[157][157][157]";NL$:NL=VAL(NL$)
  57. 570 IF NL=0THEN910
  58. 580 IFLCTHEN640
  59. 590 OPEN8,8,8,G$+",P,R":GET#8,A1$,A2$:CLOSE8
  60. 600 IFSTTHENLC=0:PRINT"     [193] [196]ISK [197]RROR HAS OCCURED.":GOSUB880:GOTO590
  61. 610 IFA1$=""AND(A2$<>"X"ORA2$<>"[216]")THEN630
  62. 620 PRINT"    [206]OT A [208]RINT [211]HOP [198]ILE!":GOSUB880:GOTO590
  63. 630 POKE829,ASC(A2$):LC=-1:LOAD G$,8,1
  64. 640 IFFOTHEN670
  65. 650 FO=-1:OPEN5,4,8
  66. 660 OPEN4,4,5:PRINT#4,CHR$(27);CHR$(65);CHR$(8)
  67. 670 FOR E=1 TO NL
  68. 680 FOR A=0TO6:PRINT#4,CHR$(27);CHR$(76);CHR$(88);CHR$(0);:C=21760+(A*88):D=C+87
  69. 690 FOR B=CTOD:PRINT#4,CHR$(PEEK(B));:NEXT
  70. 700 PRINT#4," "FS$(F(A));:PRINT#5,L$(A):PRINT#4,EL$:NEXT
  71. 710 PRINT#5,CHR$(10);CHR$(10)
  72. 720 NEXT:GOTO560
  73. 730 OPEN8,8,0,"$0":N$=CHR$(0):X$=N$
  74. 740 GET#8,A$,A$,A$,A$,A$,A$
  75. 750 GET#8,A$:IF A$=""THEN770
  76. 760 X$=X$+A$:GOTO750
  77. 770 PRINT""TAB(7);X$"[144]"
  78. 780 GETA$:IFA$=""THEN840
  79. 790 PRINT"[156]     [208]RESS [210][197][212][213][210][206] TO [211]TOP [196]IRECTORY
  80. 800 [153]"      (null)RESS ATNNY (null)THER TO LENONTINUESTOP
  81. 810 GETA$:IFA$=""THEN810
  82. 820 IFA$=CHR$(13)GOTO880
  83. 830 FORI=1TO2:PRINT"[145]                                     [145]":NEXT:PRINT"[145][145]"
  84. 840 GET#8,A$,A$:IF A$=""THEN CLOSE 8:GOTO880
  85. 850 GET#8,A$,B$:B$=STR$(ASC(A$+N$)+ASC(B$+N$)*256)
  86. 860 GET#8,A$:IF A$=""THEN PRINTTAB(5)B$:B$="":GOTO780
  87. 870 B$=B$+A$:GOTO860
  88. 880 CLOSE8:PRINT"[199]RAPHIC [198]ILE [206]AME ($ FOR [196]IRECTORY)
  89. 890 [133] "  $CMDCMDCMD";G$:[139] G$[178]"$"[167][141]730:[137]880
  90. 900 [142]
  91. 910 [153]"ATN NEW LABEL ((null)/(null))";
  92. 920 [133]"  (null)CMDCMDCMD";A$:A$[178][200](A$,1):[139]A$[178]"Y"[176]A$[178]"(null)"[167]950
  93. 930 [139] A$[178]"N"[176]A$[178]"(null)"[167]990
  94. 940 [137]920
  95. 950 [153]"(null)AME CHR$RAPHIC ((null)/(null))";
  96. 960 [133]"  (null)CMDCMDCMD";A$:A$[178][200](A$,1):[139]A$[178]"Y"[176]A$[178]"(null)"[167]360
  97. 970 [139] A$[178]"N"[176]A$[178]"(null)"[167]340
  98. 980 [137]960
  99. 990 [139] FO [167] [152]4,E$;[199](64):[160]4:[160]5:[128]
  100. 1000 [131] 169,88,141,106,3,24,105,2,141,93,3,169,85,141,123
  101. 1010 [131] 3,169,11,141,189,3,169,0,141,105,3,141,122,3,162
  102. 1020 [131] 44,157,59,90,202,208,250,160,7,162,77,169,0,24,94
  103. 1030 [131] 0,88,106,202,202,202,202,202,202,202,202,202,202,202,16
  104. 1040 [131] 238,153,96,87,136,16,228,238,105,3,208,3,238,106,3
  105. 1050 [131] 173,105,3,205,189,3,208,21,24,105,77,141,105,3,144
  106. 1060 [131] 4,238,106,3,24,105,11,141,189,3,201,115,240,17,169
  107. 1070 [131] 8,24,109,122,3,141,122,3,144,178,238,123,3,76,97
  108. 1080 [131] 3,173,123,3,201,87,208,165,96,11
  109.